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LL I] $$ 
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Lf TV SL ORAM - Old System Service Interface to Logical Names 


TIT 
- IDEN 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


OFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
N ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
ION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
> PROVIDED OR OTHERW 


TRANSFERRED. 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
CORPORATI OM NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


REAR ATAEKAAAAATAA TAA AARAAAEAAAAARAAAAAAAAAAAAARAAARAAAARAAAAEAAAEAARAAAAAAEEEE 
; D. N. CUTLER 10-OCT-76 
; Old System Services Interfaces to Manipulate Logical Names 


SCRELOG - CREATE Logical Name 
SDELLOG = DELETE Logical Name 
STRNLOG = TRANSLATE Logical Name 


The arguments are probed by these routines before they are passed off 
to the new system services so that the previous access mode is correct 
The new system services are call thru the CMKRNL 
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® 
® 
® 
® 
® 
® 
® 
® 


dispatcher so that the 


previous mode is CMKRNL so that Literal data in this code can be accessed. 


; MODIFICATION HISTORY: 


v03-014 MSHO0S3 Michael S. Harvey 29-May-1984 
Probe argument Lists for $CRELOG, STRNLOG and S$DELLOG to 
ensure accessibility. Also, make sure that the minimum 
number of arguments for these services has been specified. 


This ensures that behavior observed prior to these services 


becoming caller's mode services is maintained. 


v03-013 TMKO003 Todd M. ate 15-Nov-1983 
Fix a bug introduced by TMK0002. The address of STRNLOG's 
optional output table parameter must be Longe into R8 
before R8 is ever referenced. With the TMK chang 


e if the 


logical name started with an underscore (and no translation 


is attempted), or DSBMSK specified thet n9 table was to be 
searched, then R8 was never being initializ 


ed before it was 
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referenced. As one might imagine, this lead to unpredictable 
results. 


v03-012 TMKO002 Todd M. Katz 19-Nov-1983 
Optimize STRNLOG in those cases when the caller has not 
requested that the table in which the translated logical name 
was found be returned. The caller requested shes the table be 
returned by specifying the optional system service euteye 
parameter TABLE. The optimization consists of calling STRNLNM 
only once giving as the table name a logical name that 
equates to the list of one or more tables that the caller wants 
searched for the target logical name. The logical names that 
aay potentially serve as table names are created at system 
initialization time. The optional system service input 
parameter DSBMSK is_used to select which logical name is used 
as the table name. The reason why this optimization is 
applicable only when TABLE has not been specified is because 
it is not obvious as to which table the logical name was found 
when _STRNLNM is presented with a List of tables to search. Thus, 
the TABLE information could not be appropriately returned. 


v03-011 TMKOCO1 Todd M. Katz 23-0c t-1983 
Change the Loptees name table names that these old services 
use. Replace LNMSPROCESS with LOGSPROCESS, LNMSGROUP with 
LOGSGROUP, and LNMSSYSTEM with LOGSSYSTEM. These logical names 
which serve as table names for all three of the old system 
services (SYSSCRELOG, SYSSDELLOG, and SYSSTRNLOG) are setup at 
system initialization time, and anges changed by users in 
order for them to make use of the features of the 


SoOoooooooooooooooSo 


Sooooooooooooooooo 


SOOCOCOOCSOOOOCOCOOOOOSOOOOOOSOSSSSSSSSSSOOOooooooooooooooooooooo 


ODOoOOOOOOOOoOoOoOCoooooo COOQoooooooooQooooooooooo 
COOQoOoooooooooooocoo Sssss 


198 
Eliminate the access mode argument to STRNLNM from STRNLOG. 
Make sure there is a non-kernel mode access mode argument 
for SCRELOG and $DELLOG. 


vO3-005 DMW4059 DMWalp 23-Jun-1983 
Change $xxLNM value parameters to be by reference 


ws 
PANO ODNA NEW 9 OOD NAMEN $$ S OD NAME WW 0 OD NOUS WN OOONAUS WIN OOo 


0 new logical 
0 name services without converting existing programs to use the 
. new services. 
0 v03-010 RASO175 Ron Schaefer 28-Jul-1983 
0 Add support in SCRELOG to strip a leading *’"' and set 
0 LNMSM_TERMINAL; remove recognition of LNMSA_CONCEALED 
3 from STRNLOG; and make STRNLOG recognize PPF=format names. 
0 v03-009 RASO167 Ron Schaefer 21-Jul-1983 
0 Add special condition handler to STRNLOG in order to 
0 properly process programs with system service failure mode 
3 exception enabled. 
0 v03-008 RASO171 Ron Schaefer 20-Jul-1983 
0 Make the register masks in RASO170 be constant and 
not relocatable. 
v03-007 RASO170 Ron Schaefer 18-Jul-1983 
Fixed trashed registers from a MOVC3 when prefixing 
*""s in STRNLOG. 
V03-006 RASO165 Ron Schaefer 5-Jul-1983 
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V03-004 pmw4055 DMWalp 22-Jun-1983 
Make system services to be mode of caller. Removed all 
priv checks, gate and added condition handler setup. 


v03-003 eae ovat p 15-Jun-1983 
Save RO during move 

v03-002 ea DMWalp 20-0¢ t-1982 
Rewrite to call new system services. 

v03-001 KDM000 Kathleen P. Morse 28-Jun-1982 


Added SpRDEF. 


me 


ad eee 
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1 
} g | ; MACRO Library calls 
134 ° SCHFDEF ; define condition handling 
135 SERELOGOSE ; define CRELOG symbols 
1 § SCRELNMDEF 3; define CRELNM st 
1 SDELLOGDEF : define DELLOG symbols 
1 8 SDELLNMDEF : define DELLNM arglist 
1 STRNLOGDEF 3; define TRNLOG symbols 
3 140 STRNLNMDEF 3; define TRNLNM arglist 
141 SLNMDEF :; define po bog nam offsets 
16 SLOGDEF 3; define | sets 
14 SPSLDEF 3; define Bg offsets 
8 Vee SSSDEF ; define system status values 
000 146 3 
4 1? ; LOCAL SYMBOLS 
099 145 ; argument List offset definitions for CREATE logical name 
00000004 900 151 TBLFLG = 4 : Logical name table number 
00000008 B88 13 LOGNAM = 8 : og aS of logical name string 
; descr 
0000000C $00 154 EQLNAM = 12 ; address c " equivalence name string 
000 155 : descriptor 
00000010 0000 136 CRACMODE = 16 3 access mode 
000 158; 
0900 123 3; argument List offset definitions for DELETE logical name 
00000004 000 161 TBLFLG = 4 ; logical name table number 
00000008 B38 166 LOGNAM = 8 ; address of logical name string 
0 16 3 descriptor 
0000000C 4 19 DLACMODE = 12 3 access mode 
000 196 3 
4 1 3; argument List offset definitions for TRANSLATE logical name 
00000004 4 188 TRLOGNAM = 4 ; address of logical name string 
; 170 : descriptor 
00000008 0 V7) RSLLEN = 8 3 address to store length of result 
3 6strin 
000000 138 RSLBUF = 12 ; sadrest of result buffer descriptor 
000001 Vr TABLE = 16 : address to store translation table 
> onum 
00000014 D00¢ 178 TRACMODE = 20 3 adécess to store assignment access 
NOOO ° 
00000018 00¢ 178 DSBMSK = 24 3 table search disable mask 
BAAD 
' ' 1 3 
' ? ; local area storage defination for SCRELNM call 
“ue ° 
if 1 : RET_ TRANSIZE = 9 3; the returned translation size 
4! 184 RET-TRANATIR = 3; the returned translation attributes 
Ta ace EES 
D0 = 3; the input a 
if 1 ; LOTAL_AREA = 18 3 the munbar of byte the above take 


sega 


59 53 24 


52 47 24 


52 50 24 


00000018 
0000 


O090008A: 
0000004B' 


47 4F 4C eotees Hla git 


47 4F 4C ee Oe 
47 4F 4C 00099033" 9105 9000 

$8 $F 80 Sparse ar args. 
$5 58 25 emPapus gmgpoe 
$5 55 25 spoons upon” 
SRANTP ETT 


03 01 


00000200 


1 
1 
1 
1 


4 
8 
¢ 
C 
6 
5 
8 
6 
6 
A 
A 
8 
8 
9 
E 
E 
E 


SASCID 
7 
3 TABLE _MODE : 
BYTE 1, 3 
? 
§ LNM_TERM: 
LONG LNMSM_TERMINAL 


1 
1 ESCAPE = 27 
-PSECT YFSSYSLOGNAM 
198 | ; Literal string definitions 
198 TABLE _NAME_LIST: 
196 - ADDR DRESS SYSTEM _TABLE 
19 DDRESS GROUP TABLE 
199 "ADDRESS PROCESS. TABLE 
TRNLOG_ TABLE: 
1 .ADDRESS PGS_TABLE 
‘ .ADDRESS PG ~TABLE 
.ADDRESS PS TABLE 
04 . ADDRESS PROCESS TABLE 
5 .ADDRESS GS_TABLE 
06 .ADDRESS GROUP_TABLE 
9 .ADDRESS SYSTEM_TABLE 
08 SYSTEM_TABLE 
10 “LOGSSYSTEM"’ 
gi GROUP_TABLE : 
12 -ASCID "LOGSGROUP"’ 
313 PROCESS_TABLE: 
14 -ASCID "“LOGSPROCESS'’ 
15 
1 GS_TABLE 
1 ASCID ‘'TRNLOGS_GROUP_SYSTEM' 
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; ASCII escape char for PPFs | 


descriptor addresses 


t 


to system table name 
group table 


to process table name 


Qui wiry 


esc addrs equated to DSBMSK 
=> PR ose eee GROUP, & SYSTEM 
=> PROCESS & GROUP 

=> PROCESS & SYSTEM 

-> PROCES 

-> GROUP & SYSTEM 

=> GROUP 

-> SYSTEM 


system table name 


group table name 


process table name 


; group and system table names 


3; process and group table names 
“TRNLOGS$_PROCESS_GROUP"’ 


3 process and system table names 
*“*TRNLOGS_PROCESS_SYSTEM"’ 


ocess, group, and system table names 


: System Table is exec mode 


; Group Table is user mode 


3; terminal attribute for SCRELNM 
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< 
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10 AC DS 
02. +00 ef 
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SYS SRC 
-SBTTL CREATE Logical Name 
EXESCRELOG = CREATE Logical Name 
This service provides the capability to insert a logical name equivalence 


into either the process, group, or system logical name table via the old 
system service interface. 


INPUTS: 
TBLFLG (AP) = Logical name table number. 
LOGNAM (AP) = address of logical name otra descriptor. 
EQLNAM (AP) = address of equivalence name string descriptor. 
CRACMODE (AP) = access mode of logical name to be created. 
OUTPUTS: 


RO low bit clear indicates failure to create logical name table entry. 
0 = exception turned in return status 
RO = status returned from new sevice 


RO low bit set indicates successful completion. 
RO = status returned from new sevice 


sENTRY EXESCRELOG, “M<R2,R3,R4,R6,R7,R8> 


: Only eH Py RO-R4 are used, the other registers are saved for 
3; compatability with old versions of the service 

: Return exception as return status 

MOVAB L‘“EXESSIGTORET, (FP) 


: Verify that the argument List is accessible and has the minimum 
; number of arguments for successful execution of the service. 


ASSUME CRELOGS_NARGS LT 128 
iy (AP) ,ACRELOGS$_NARGS ; Minimum number of arguments specified? 
T 


INSA : SU, no, return error status 
STL <CRELOGS_NARGS*4>( AP) : Touch last argument, verify accessibility 


> Calculate access mode and check table number 

ExTZV #0,#2,CRACMODE(AP),R2~ ; get caller specified access mode 
BSBW CHECKOUT ; check table number and privilege 

$ Set up itemlist for SCRELNM 

; Default index ( LNMS_INDEX ) of zero 

tLra -(SP) 3; end of List, return size not needed 
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54 4 FB 93 CLRL RG 3 flag no attributes 
50 oc C D FD Be MOVa @EQLNAM(AP) ,RO : eading fgne descriptor 
61 F SF ig i ; 9 core Hoge (RVD $ 
§ i) 1 38 DECL no 3 venues — 
1 6 109 38 INCL R 3 advance 
4 p 1 9 INCL RG 3 leg tore nal attribute 
7E D Q1 , 10$: MOVaQ RO,-(SP) 3; equ yatonce — jezecrsoter 
02 AE B 1 MOVW as STRING, 2(SP) 3; stuff the item list code 
0B Y 11 § BLBC R4,208 3 need an Bi. Bh. item? 
E D4 0117 CLRL 0 = ¢ $B) $ no return len 
Bf AF OF 119 4 PUSHAL LNM_TERM 3; point to gerataes attribute 
000598 4 gr DD 011 5 PUSHL #<4?<LNMS_ATTRIBUTES@16>> ; item code and size 
5 D 1 $ 20$: MOVL 3 save the gointer fo a the List 
51 FED6 CF43 DO 01 MOVL  §TABLE_NAME_LISTCR3],R1 : level of indirecti 
DD 0128 8 PUSHL 3 save access mode tor reference 
4 DD 012d PUSHL #LNMSM_CRELOG ; save attributes for reference 
52 E pO O12F 10 MOVL SP,R2 3 save pointer to ACMODE and ATTR 
BH 
0 18 : Call System Service 
01 15 ; SCRELNM_S ATTR = (R2),- 
1 16 $ TABNAM = (R1),=- 
1 a LOGNAM = et Se AP) ,- 
1 \8 é ACMODE = 4(R2),- 
1 19 ; ITMLST = (RO) 
60 OF 1 0 PUSHAL (RO) 
0134 1 ASSUME CRELNMS_ITMLST EQ CRELNMS$_ACMODE+4 
04 A2 OF 134 § PUSHAL 4(R2) 
137 ASSUME CRELNMS_ACMODE EQ CRELNMS$_LOGNAM+4 
08 BC OF 137 4 PUSHAL @LOGN 
O13A 5 ASSUME Sarl MNS LOGAN EQ CRELNMS$_TABNAM+4 
61 DF 13A § PUSHAL (R1) 
13C ASSUME CRELNMS_TABNAM EQ CRELNMS_ATTR+4 
62 ~=ODF 13¢ 8 PUSHAL (R 
135€ 9 ASSUME CRELNMS$_NARGS €0 5 
80000000'°9F 05 re oi ? cats #CRELNMS_NARGS,@#SYSSCRELNM - PISYSVECTORS + *x80000000 
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1) : ; ~SBTTL Check table number, privileges and logical name string 
14 : 3 Check table number, and access mode 
14 8 CHECKOUT: ; check table number and access mode 
1? rh ; Logical name table number checkout 
53 04 AC 9A 0146 4¢ MOVZBL TBLFLGCAP),R3 : get Logical name table number 
53 0 D1 014A «= 34 CMPL #06 C_PROCESS,R3 : Tegal table number? 
19 0140 44 BL 10$ 3; number greater then 2 
oc 613 of 4g BEQL 20$ 3 number was 2 ( process table ) 
151 4 : 
i ‘3 ; Set up access mode for group and system tables 
52. 84 AFS43) «9A «(0151 = 350 MOVZBL TABLE_MODECR3],R2 ; convert table to acmode 
156 51 3 group is user mode, system is exec 
05 8128 26 RSB 3 
50 015C 8F sf O13 32 10$: Rove. #SS$_IVLOGTAB,RO ; set invalid logical name table number 
150-35 , 
36 D5 bi20 2§ 20S: TSTL R2 3 was an access mode given? 
2 12 4 F 58 BNEQ 30$ 3; use it if so 
‘ DC 0161 59 MOVPSL R2 3; Otherwise use mode of caller 
52 52 02 1 fr 0163 60 EXTZV #PSLSV_CURMOD,#PSL$S_CURMOD,R2,R2 
5 0168 61 30S: RSB 
169 °¢ 
3 ie 
50 0114 8F 3C 0169 65 INSARG: MOVZWL #SS$_INSFARG,RO ; Report incorrect arg List count 
04 016E 66 RET 
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-SBTTL DELETE Logical Name 
EXESDELLOG = DELETE Logical Name 
This seryice provides the capability to delete a previously created logical 
name equivalence from either the process, group, or system logical 
name table via the old system service interface. 
INPUTS: 


TBLFLG (AP) = ob name table number. 
LOGNAM (AP) = ad ress et hogicas name string descriptor. zero 
mplies all. 


DLACMODE (AP) = access mode of logical name to be deleted. 
OUTPUTS: 
RO low bit clear indicates failure to delete logical name table entry. 
RO = exception turned in return status 
RO = status returned from new sevice 


RO low bit set indicates successful completion. 
RO = status returned from new sevice 


O1FC -ENTRY EXESDELLOG,*M<R2,R3,R4,R5,R6,R7,RB> 


: Only rouieyere RO-R3 are used, the other registers are saved for 
3; compatability with old versions of the service 


: Return exception as return status 
MOVAB L“EXESSIGTORET, (FP) 


: Verify that the argument List is accessible and has the minimum 
; number of arguments for successful execution of the service. 


ASSUME DELLOGS_NARGS LT 128 
6c 91 CMPB (AP) ,#BELLOGS$_NARGS ; Minimum number of arguments specified? 

ec 86«(6'f BLSSU INSARG : If LSSU, no, return error status 

AC D5 TSTL <DELLOGS_NARGS*4>(AP) ; Touch last argument, verify accessibility 


: Calculate access mode and check table number 


EXTZ2V #0,#2,DLACMODE(AP),R2~ ; get specified access mode 
BSB CHECKOUT check table number and privileges 


MOYL TABLE_NAME_LISTCR3],R1 ; level of indirection 


PUSHL R2 3 save access mode for reference 
MOVL SP,R2 Save pointer to ACMODE 


52 OC ac 02 00 F 
FFBD 


51 FE72 CF43 = 
32 DD 
52 E 
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a“ ; § :; Call System Service 
194 4 g : $DELLNM_S TABNAM = (R1),- 
194 409: LOGNAM = @LOGHAMCAP) ,- 
194 430 ; KCMODe = (R2) 
62 DF 0194 431 PUSHAL (R2) 
196 4 Q ASSUME DELL uns ACMODE EQ DELLNMS_LOGNAM+4 
08 BC ODF 196 4 PUSHAL @LOGNA 
199 434 ASSUME DELLNMS, LOGNAM EQ DELLNMS$_TABNAN+4 
61 DF 0199 435 PUSHAL (R1) 
198 4 é ASSUME DELLNMS_NARGS £0 3 
80000000'9F 03 FB 198 4 f CALLS #DELLNMS_NARGS,@#SYSSDELLNM - P1ISYSVECTORS + *x80000000 
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55 18 AC FFFFFFF8 8F CB 
58 10 AC 00 


54 OC AC DO 


3. 6a“ CO 
54 04 A400 
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: -SBTTL TRANSLATE Logical Name 
; EXESTRNLOG = TRANSLATE Logical Name 
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: This service provides the capability to translate a logical name string 
; to a resultant name string via old system service interface. 


: INPUTS: 


Ho 
> 
wo 
>naom 
wv 
~~ 
nunnue 


LE ¢ 
TRACMODE (AP) 
DSBMSK (AP) 


OUTPUTS: 


address of logical name string descriptor. 
address to store length 9 result string. 
address of resultant string 

address to store translation table number. 
address to store assignment access mode. 
table search disable mask. 


buffer descriptor. 


RO low bit clear indicates failure to translate logical name strin 
RO = SSS$_RESULTOVF = can not add ‘“"_"’ or "'’ 
the buffer is to smalT 
RO = exception turned in return status 
RO = status returned from new sevice 


to output puller; 


RO low bit set indicates successful completion. 
RO = status returned from new sevice 


ENTRY EXESTRNLOG,“M<R2,R3,R4,R5,R6,R7,R8> 


> Return exception as return status 


MOVAB L“EXESSIGTORET, (FP) 


: Verify that the argument List is accessible and has the minimum 
; number of arguments for successful execution of the service. 


ASSUME TRNLOGS_NARGS LT 128 
CMP (AP) ,#TRNLOGS$_NARGS : 


TSTL  <TRNLOGS_NARGS*®4>(AP) 


BICL3 #*C*X07,DSBMSK(AP),RS_ ; 
MOVL TABLE(AP),R8 


; Resultant string checkout 
MOVL = RSLBUF (AP) ,R4 


MOVZWL (R4),R3 
MOVL 4(R4S,R4 


: Logical Name Checkout 


Minimum number of arguments specified? 
If LSSU, no, return error status 
Touch last argument, verify accessibility 


set table search disable mask 
pickup address of the table parameter 


get address of result string buffer 
descriptor . 

get size of result string buffer 
get address of result string buffer 


C 11 
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v04-000 TRANSLATE Logical Name ’ mii aets T §6:88:18 SYS.SRCISYSLOGNAM.MAR; 1 . (6) v0 
1cC) 0s 49 
51 04 AC 0 QC 49 OVL TRLOGNAM(AP) ,R1 ; get address of logical name strin 
50 61 ee 1D 0 MOVZWL (RT) RO 3 get Length of logical name stringe 
51 04 A1 00 O1D 1 MOVL 4(R15,R1 3 yet address of logical name string 
1 OD QD § PUSHL R1 ; local copy of lognam descriptor 
0 DD 0109 PUSHL RO : 
52 E 00 139 : OVL SP,R2 ; remember the location of descriptor 
1DE $ H 
10 be ; Get local stack storage 
SE 10 C3 1D 03 SUBL2 #LOCAL_AREA, SP 
i, oo Brea 19 MOVL SP,R6 ; get a pointer to our local stcre 
O1E4 216 : 
BIE? Fe ; Test for no tranlation 
61 SF 8F 91 Sige 213 CMPB Mea" CRI) ; logical name start with underscore? 
iW pice 516 BNEQ $ ; continue if no; otherwise, 
0081 31 Bs lf BRW NOTRANS ; special case code for no translation 
O1ED 519 : 
O1ED 259 3; Build itemlist 
O1ED 521 : 
— ] wee. | ¢ 5$: LRQ -(S ; end of List, no return Length 
08 A6 OF OEF 5 PUSHAL RET_ACMODE(R6) ; area for returned access mode 
00060001 8F ODD pire 524 USHL #1!2LNM$_ACMODE@16> ; size of area and item code 
00 DD OIF 525 USHL #0 3 no return Length ‘ 
04 AG DF OFA 526 PUSHAL RET_TRANATTR(R6) 3; area for returned trans attributes 
00030004 8F DD O1FD 527 PUSHL #4!2LNM$_ATTRIBUTES@16> ; size of area and item code 
66 D4 0203 528 CLRL RET_TRANSIZE(R6) ; clear returned Longword 
66 DF 0205 529 PUSHAL RET_TRANSIZE(R6) ; return length of translation address 
64 OF 0207 530 PUSHAL (R4) ; translation buffer address 
53 DD O 7 531 PUSHL R ; size of translation buffer 
02 AE 02 B60 0208 236 OVW #LNMS$_STRING,2(SP) ; stuff the item List code 
00 DD O20F 3 PUSHL #0 ; no return Length 
6—E OF 0211 534 PUSHAL (SP) ; point to a zeroed longword (0 index) 
00010004 8F DD 8 13 232 PUSHL #4!<LNM$_INDEX@16> ; stuff the item List code 
0219 537 H 
8 19 238 ; If TABLE has not been specified, then use DSBMSK to index into 
19 39 ; the List of logical name table names to obtain the address of 
0219 40 ; the boa teat name to use as the table name in the single call to 
19 541 ; STRNLNA. 45 
19 348 ' ba 
07 55 03 00 Fe 0219 44 CMPZV) #0, #3,R5 87 3 are any tables to be searched? 45 
49 1 26 $22 BEQL 50$ 3 return immediately if no 4C 
51 FDE7 CF45 00 229 MOVL TRNLOG_TABLECR5),R1 ; assume TABLE has not been specified 
58 rf g 278 TSTL R ; TABLE specified? 
OD 1 4 BEQL 208 ; must do table loop if so; otherwise, 
39 ; only one $TRNLNM need be done 
A H 
: 35 ; Loop thru the valid logical name tables. 


- Old 
TRANSL 


pw 
mo 


D111 
ervice Interface to Logica 16-SEP-1984 7:22:19 VAX/VM 
i 5 —s green 198 o¢:¢ :16 


4 


Macro v04-00 Page 13 SY 
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SYS.SRCJSYSLOGNAM.MAR; 1 (6) ve 


7 9A MOVZBL #2,R7 
35 a 9g E0 BBS R7,R5,40$ 
51 FDCA CF47 00 MOVL TABLE_NAME_LISTCR7],R1 ; level of indirection 
; Call system service 
: $TRNLNM_S TABNAM = (R1),- 
: LOGNAM = (R2).- 
ITMLST = -<4%43>(R6) ; 40 is 13 longwords of itemlist 
CC A6 ODF 20$ PUSHAL =<4#13>(R6) 
ASSUME TRNLNMS_ITMLST EQ TRNLNMS$_ACMODE+4 
00 pp PUSHL 
ASSUME TRNLNMS_ACMODE EQ TRNLNMS_LOGNAM+4 
62 OOF PUSHAL 
ASSUME TRNLNMS_LOGNAM EQ TRNLNMS_TABNAM+4 
61 OF PUSHAL 
ie ASSUME TRNLNM$_TABNAM EQ TRNLNMS_ATTR+4 


PUSHL # 

ASSUME TRNLNMS_NARGS EQ 5 

MOVAB LNMSSIGTORET, (FP) 3; special handler 

CALLS #TRNLNMS_NARGS,@4#SYSSTRNLNM = PISYSVECTORS + “x80000000 
MOVAB L“EXESSIGTORET, (FP) 


6D 000002D2"EF 9 
80000000'9F 05 FB 
6D O0000000°EF 9 


: Test if it worked ( Should only be SS$_NORMAL ) 


3050 £8 BLBS RO, CHECK_ATTR 
: If no translation then try next table 
3 else return error 
O1ec 8F 4650 soit CMPW = RO, #SS$_NOLOGNAM 
01 i3 BEaL «=s«30 


; try next table if table looping is being done. 


5 be 30$: TSTL R8 : is table looping being done? 
4 1 BEQL 50$ 3; done if no table looping 
C4 F4 40$: SOBGEQ R7,10$ ; otherwise continue with next table 


: Tried all tables with no luck 


Mova = (R2) , RO ; 
BRB NOTRANS2 : special case code for no translation 


DAARAAAAAAA AA AAA AANA AMAA Be IAIN AINA NIAAA AAI AAI 
uw 
So 
oad 


COOOCOOCOCOOOOCOCOOOOOCOCOOOSOOSOOSOOSSSCOCSOSCOOCSOOOOOOOOOCOOOOOOOOOOOOOoOO 
POPIPIPIPININININIPIPINPINIPINIPIPIPIPINPOPININININIPIPIPIPNIPINININIPOPIPIPIPIPOPIPIPIPUPIPIPIPUPIPUPIPPOPIPUPINYD 
MMA OOOO OD SNVNNVININ — TS PP PP FS NNN NOOOONNNOCOMMOO > & NNN" "oO 2 
——DOOGDOODO000000 OOOO OO 000 69 09 09 09 09 69 09 C9 08 SINISE NINO AAA ur 

OOD NAMN LEWIN  O OO NAUES WN 9 OD NAULS WN $0 OONOAOU LS WA) OOONAUSWh—O00 


fo ve ete at ete al al @ al al al al ah Al AL Ah Ah AL AL AL AL AL AD AL AD AD AD AL AL AL AL Ale al dl eal tal ealealealealeal tai valtalealealealeal 
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v04-000 TRANSLATE Logical Name . 82SEb= 1 9be 4:88:12 SYS.SRCISYSLOGNAM.MAR; 1 . (6 
43 1 ; No translation, stuff the input into the output buffer 
50 07 é 14 NOTRANS:bECL RO $ get rid of leading ''_"’, decrease size 
51 D6 15 CL R1 ; bump pointer 
7 918 NOTRANS2: 
53 9 D1 7 61 CMPL RO,R ; is the output buffer big enought 
1A 027 618 BGTRU BUFOVR ; buffer to small, pail out 
66 0 HS 7 61 MOVZWL RO,RET_TRANSIZE(R6) ; store result string length 
64 61 29 7A =620 MOVC3 RQ. CRIT, CRO) 3; stuff in user buffer 
D4 7 621 CLRL R 3 zero the table number 
08 A6 Be 8 6 ¢ CLRL RET_ACMODE (R6) 3 zero the access mode 
50 0629 sf C | MOVZWL #SS$_NOTRAN,RO 3; stuff old error code 
a : rejoin for normal ex 
7 11 BA ¢ BRB RET_QVALUES join fo lL exit 
A 6 ; 
8 BA ? ? ; Check if underscores need to be added 
0 SA 6 ? CHECK_ATTR: 
6 - oa) ; If actual size is greater then returned size 
22 04 AB «4209°)=«COE1—s«028A $38 ec #LNMSV_TERMINAL ,RET_TRANATTR(R6) ,RET_VALUES 
51 66 DO O28F 634 MOVL §RET_TRANSIZE(R65,R1 ; get actual size 
66 06 8 92 635 INCL RET TRANSIZE(R6) 3 eo tbany count 
-) om ) eh 94 636 CMPL 1,R3 ; will String now fit? 
33. 1€ 0297 63 BGEQU BUFOVR 3; nope 
64 1B Bi 0299 638 CMPW #ESCAPE, (R4) ; is this a PPF? 
06 12 O029C 639 BNEQ 60$ 3 nope 
54 04 C8 9E 640 ADDL #4,R4 ; insert ‘'_"* after PPF info 
51 04 C Al 641 SUBL #4,R1 
11 #488 AS $46 60$: PUSHR #*M<RO,R4> 3 save status and start addr 
01 A4 64 51 28 0206 64 MOVC3 R1,(R45,1(R4) : shift right 1 character 
11 BA Q2AB 644 POPR #*M<RO,R4> 3; restore registers 
64 5SF 8F 90 Oeet ot? MOVB Mea’ "*, CRG) ; stuff underscore 
B1 647 3 
aset 278 3; Return the translation size, table number and access mode 
0 B1 650 RET_VALUES: 
51 O8 AC OD B1 651 MOVL RSLLENCAP) ,R1 3 get address to store result length 
03. BS $36 BEQL 11 : if not specified 
61 66 8B B? 65 MOVW RET_TRANSIZE(R6),(R1) |; store result string Length 
58 OD BA 654 1108: TSTL R : is table number to be returned? 
93 1 BC 655 BEQL 120$ :; if not specified 
68 9 a 926 MOVB R7, (RB) 3; store translation table number 
51 114AC OD ce re 120$ MOVL TRACMODE (AP) ,R1 : get address to store assignment 
3 access mode 
04 13 c5 $36 BEQL 130$ : if not specified 
61 08 A6 90 C7 = 660 MOVB RET_ACMODE (R6) , (R1) ; store assignment access mode 
04 CB 661 130$: RET 3 
ee 
35 668 ; Buffer is too small 
50 0214 8F Hv cc 096 BUFOVR: MOVZWL #SS$_RESULTOVF ,RO ; buffer specified too small 
4 D1 66 RET 3 
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SYSLOGNAM 
v04-000 y 
p ef ~SBTTL LNMSSIGTORET = TURN SS$_NOLOGNAM EXCEPTIGN INTO RETURN STATUS 
‘ ; FUNCTIONAL DESCRIPTION: 
Do 673; THIS IS A CONDITION HANDLER THAT TURNS A SS$_NOLOGNAM 
D 674 ; EX CEPTION IN THE A LOWER 
D 75; FRAME INTO A RETURN FROM THE LOWER FRAME WITH THE EXCEPTION NAME 
D og : AS THE STATUS. ALL OTHERE EXCEPTION 
p : ARE RESIGNALLED. UNWINDS ARE IGNORED. 
D re : INPUT PARAMETERS 
D 6 9 ; O(AP) = NUMBER OF CONDITION ARGUMENTS . 
D : AtAP = ADDRESS OF SIGNAL ARGUMENT LIST. 
p 6 ¢ : 8(AP) = ADDRESS OF MECHANISM ARGUMENT List. 
6 D2 684 : OUTPUT PARAMETERS: 
02D2 685: RO - COMPLETION STATUS CODE 
0202 6 $ ; SS$_RESIGNAL = ALWAYS 
02D 687 ; 
02D2 688 
02D2 689 LNMSSIGTORET: 
0000 6 be 690 .WORD 0 
0 D4 69 ASSUME CHFSL_MCHARGLST,EQ,CHFSL_SIGARGLST+4 
50 04 AC 7D 0204 694 MOVO © CHFSL_SIGARGLST(AP).RO_ ; GET ADDRESS OF SIGNAL ARGUMENT LIST 
04 AO 000001BC 8F D1 O2D8 695 CMPL § #SS$_ROLOGNAM, CHFSL_SIG_NAME(RO) ; MAGIC ERROR 
1B 13 0260 696 BEQL BRANCH to EXIT IF NOT 
04 AO 0000045C BF D1 0262 697 CMPL HSS. SSFAIL, CHFSL_SIG _NAME (RO) : OR SSFAIL? 
e2 12 O2EA 698 BNEQ 50$ BRANCH 10 EXIT IF NOT 
08 AO O000001BC 8F 01 O2EC 699 CMPL § #SS$_NOLOGNAM, CHFSL_SIG AnG1 (RG ) ; MAGIC ERROR? 
18 iF 02F4 700 BNEQ o$ ~ H fo 0 EXIT IF NOT 
0c Al 08 A 0 Fé 20 MOVL CHFSL_SIG_ARG1(RO),CHFSL_MCH_ SAVROCR ) ; SET RETURN STATUS 
0C Al 04 A0 00 O2FD 8¢ 10$: MOVL CHE $L_SIG_NAME (RO) ,CHFSL_MCH SAVRO(R1) SET RETURN STATUS 
7E D4 0302 704 20S: CLRL =s_ = (SP) 7 CLEAR N C ARG N 
08 Al OF 0304 705 PUSHAB CHFSL_MCH DEPTH(R1) : NUMBER” oF AMES TO UNWIND 
00000000'GF 02 FB 0307 7 6 CALLS #2,G*SYSSONWIND ; UNWIND TO ESTAR ABLISHER 
50 0918 8F 3¢ OF 707 508: MOVZWL asks "RESIGNAL. RO ; RETURN RESIGNAL STATUS 
64 031 708 RET : 
14 709 
0314 710 END 


SYSLOGNAM 
Symbol table 


SSARGS 
$$T1 
BUFOVR 
erry ut 


CHE 
CHF SLCRCHARGL ST 


ELLOGS_NARG 
DELLOGS TPLFLG 
DLACMOD 


ESC 
EXESCRELOG 
EXE LOG 
EXESSIGTORET 
EXESTRNLOG 


L MODE 
LNMS_ sees 
LNMS_ I 

LNMS~ STRING 
NM_TERM 

OTE PROCESS 
LOGNAR 


NOTRANS 
NOTRANS2 
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3 » SOOOSCSOSSO 


Soo 
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OF 


oo *# OO0O0oO 


DD 
ag 
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19 yaxivas Macro V04-00 
16 SYS.SRCJSYSLOGNAM.MAR; 1 
PLsVsyectors rererere x 
PGS hee 5 R 
PG_TABL AR 
PROCESS TABLE 48 R 
PSL $_CORMOD = 9 
PSLS$V_CURMOD 5 
PS_TABLE 97 R 02 
RET_ACMODE = 8 
RET_TRANATTR = 4 
RET-TRANSIZE = 0 
RET VALUES 1R 02 
RSLBuF = f 
tt te 2 
SS$_INSFARG = 00000114 
SS$_IVLOGTAB = 15C 
$S$_NOLOGNA = S15 
SS$_NOTRAN = 000 3 
$S$_RESIGNAL = 444 18 
S$S$_RESUL TOVF = 00000214 
SS$_SSFAIL = 0000045C¢ 
SYSSCRELNM eeraerene x 0 
SYSSDELLNM rkeerene x 0 
SYSSTRNLNM aeeeeeee = X 0 
SYSSUNWIND ekereere x 0 
SYSTEM_TABLE 0000028 R 02 
TABLE = 00000010 
TABLE _MODE 00000D9 R 98 
TABLE _NAME_LIST 0000000 R 0 
TBLFiLG = 00000004 
TRACMODE = 00 Boe 
TRLOGNAM = 00 004 
TRNLNM$_ACMODE = 00 Bee 
TRNLNMS_A = 00 04 
TRNLNMS_ITMLST = 00000014 
TRNLNM$_LOGN = 94944 
0 TRNLNMS_NARGS = 00000 
0 RNLNMS_ = 464 08 
0 TRNLOGS$_ACMODE = 00014 
8 TRNLOGS_DSBMSK = $8 18 
RNLOG$_LOG a 00004 
8 TRNLOGS_NARGS = 00000006 
TRNLOGS_RSLBUF = 44 ; 
ica aL : esau 
= 
02 TRNLOG_ TABLE Mittin R 02 
02 


03 
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! Psect synopsis ! 


temo wom ema coamse t 


PSECT name Allocation PSECT No. Attributes 

- ABS . 4 6 -) 00 ¢ 9.) NOPIC USR CON ABS LCL N 
SABSS 000000 < a 8 -) NOPIC USR CON ABS~ LCL NO 
YFSSYSLOGNAM 0000314 ( 788.) 02 ¢ 2.) NOPIC USR CON REL LCL N 


CPU Time 


Page faults 


Command processing 139 i 7 8: 8: a6 
Ty horton OR BBE 
Symbol table output 13 90:88:99 88 00:00:00.1 
Psect synopsis output :00:00.0 0:00:00.05 
Cross-reference output 6 0:00:00-00 00:00:00.00 
Assembler run totals 57 00:00:10. 00:00:22.60 


hs working s set Limit was 1500 pages. 
9221 bytes (77 pages) of virtual memory were used to buffer the intermediate code. 

oes | were 40 pages of symbol table space allocated to hold 588 non-local and 18 Local symbols. 
710 source Lines were read in Pass 1, producing object records in Pass 2. 

20 pages of virtual memory were used to define 19 macros. 


Macro Library name 
“$52 2S0UAE: Ha -OBJJLIB.MLB;1 1 
SYSLIBISTARLET. MLB;2 1 
Torre t (all Libraries) 1 
623 GETS were required to define 16 macros. 
There were no errors, warnings or information messages. 


MACRO/LIS=LIS$:SYSLOGNAM/OBJ=0BJ$:SYSLOGNAM MSRC$:SYSLOGNAM/UPDATE=(ENHS$: SYSLOGNAM) +EXECML$/LIB 


OSHR 
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EXE 


v04-00 Page 
SYS. SRCISYSLOGNAM. MAR; 1 


6 ae NOEXE NORD NOWRT NOVEC BYTE 
SHR EXE RD 


WRT NOVEC BYTE 
URT NOVEC BYTE 


nn  tt#eea4......g=eeeEEeEeee eee 
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VeU0 VAX/VMS_V4.0_ : D PROPRIETARY 


